home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 18 / Big_Mouth_The_18_1998_-_Side_D.d64 / 04- the secret (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  37 lines
  1. 1 print"[147]fullscreen plasma scroller!";
  2. 3 dimc$(23)
  3. 5 poke53280,0:poke53281,0:poke53282,4:poke53283,6:poke53284,13:x=0
  4. 10 poke53265,87:rem 27
  5. 100 a$="[144]#[151]#[152]#[155]##[155]#[152]#[151]#[144]#[151]#[152]#[155]##[155]#[152]#[151]#[144]#[151]#[152]#[151]#"
  6. 105 b$="[144][163][151][163][152][163][155][163][163][155][163][152][163][151][163][144][163][151][163][152][163][155][163][163][155][163][152][163][151][163][144][163][151][163][152][163][151][163]"
  7. 110 fori=0to6.28step(6.29/24)
  8. 120 a=2*(int(sin(i)*5))+20:b=2*(int(cos(i*2)*5))+20
  9. 125 d=2*int(sin(i*2)*3)+40:e=38+(40-d)
  10. 130 c$(x)="[146]"+mid$(a$,a/2,a)+""+left$(b$,d-a)
  11. 140 c$(x)=c$(x)+"[146]"+left$(b$,b)+""+left$(a$,e-b)
  12. 190 x=x+1:next
  13. 200 print"[147]";:poke53281,2
  14. 800 poke53270,192
  15. 900 forj=1to8
  16. 1000 fori=0to23:printc$(i);:next
  17. 1150 next
  18. 2000 poke53270,200:poke53265,27
  19. 2005 poke54276,64:poke54276+7,64
  20. 2010 print"[147]":poke53281,6:poke53280,6
  21. 2100 print"      the open sky is falling down":print
  22. 2120 print"    the air is burning":print
  23. 2140 print"        i can see a light":print
  24. 2160 print"           a light of tomorrow":print
  25. 2180 print"              it's darkening":print
  26. 2200 print"     a thick fog is surrounding me":print
  27. 2220 print"   i can't see the sky":print
  28. 2240 print"     suddenly i feel ill":print
  29. 2260 print"       maybe i did something wrong..."
  30. 2280 printspc(33)"- !ajy"
  31. 2300 print"savun                         kytkennat"
  32. 2340 print"tarkastamme                  halvettya!";
  33. 3000 print"load"chr$(34)"05*"chr$(34)",8:"
  34. 3010 print"run:";
  35. 3020 poke198,2:poke631,13:poke632,13
  36. 3030 end
  37.